Private Sub mnuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOpen.Click
    Dim sFile As String
    With OpenFileDialog1
        .Filter = "Text Files (*.txt)|*.txt"
        .ShowDialog()
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    FileOpen(1, sFile, OpenMode.Input)
    txtInput.Text = InputString(1, CInt(LOF(1)))
    FileClose(1)
End Sub
